home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 1 #4 / utv1n4s2.d64 / disk holder (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  6.9 KB  |  213 lines
  1. 1 rem ***        disk holder
  2. 2 rem *** for the c-64/c-64c/c-128
  3. 3 rem ***     by ron o'laughlin
  4. 4 rem ***published by softdisk publishing
  5. 10 if a=3 then goto 31
  6. 12 if peek(56)<>64 then poke56,64: clr
  7. 14 if a=0 then a=1: gosub 20: load"0:disk holder.bmp",8,1
  8. 16 if a=1 then a=2: load"0:disk holder.col",8,1
  9. 18 if a=2 then a=3: load"0:lptr rtn",8,1
  10. 20 poke 53280,0: poke53281,0: print"[147]"chr$(142)chr$(8)
  11. 21 print"[158]         [209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]"
  12. 22 forp=1to10:print"         [209][209]":next
  13. 23 print"[145][145][145][145][145][145][145][145][145]disk holder"
  14. 24 print"by:":print"rhonda o'laughlin"
  15. 25 print"(c) 1987"
  16. 26 print"published by:"
  17. 27 print"[156]softdisk publishing"
  18. 28 print"[158]         [209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]"
  19. 29 return
  20. 31 print"         [209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]"
  21. 32 forp=1to10:print"         [209][209]":next
  22. 33 print"         [209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]"
  23. 34 print"[156]        press return[156] to continue"
  24. 35 get z$: if z$=chr$(13) then 38
  25. 36 if x=0 then x=1: gosub 21: goto 35
  26. 37 x=0: goto 31
  27. 38 goto7000
  28. 39 clr:poke53265,peek(53265)and239
  29. 40 poke56578,peek(56578)or3
  30. 50 poke56576,(peek(56576)and252)or2
  31. 60 poke53265,peek(53265)or32
  32. 70 poke53270,peek(53270)or16
  33. 80 ba=peek(53272):poke53272,(ba and 240)or8
  34. 82 forp=49152to49199:readx:pokep,x:next:sys49152
  35. 90 poke53265,peek(53265)or16
  36. 92 getx$:ifx$=""then92
  37. 93 ifx$<>chr$(13)then92
  38. 94 poke53265,peek(53265)and239:poke53272,(peek(53272)and240)or4
  39. 95 poke53270,peek(53270)and239:poke56576,(peek(56576)and252)or3
  40. 96 poke53265,peek(53265)and223:sys49152
  41. 97 ifx=1then7060
  42. 98 goto7000
  43. 99 rem****end of screen
  44. 100 print"[147][154]"
  45. 105 printchr$(14)+chr$(8)
  46. 110 a$=":                        :"
  47. 120 b$=".........................."
  48. 130 c$=":                                          :"
  49. 140 print"   [212]his program is a bit different as "
  50. 150 print"far as computer programs go, but it"
  51. 160 print"meets a basic need for many of us."
  52. 170 print"[200]ave you ever tried to find a disk you"
  53. 180 print"were looking for when 7 or 8 disks were"
  54. 190 print"scattered around your desk?"
  55. 195 print: print"   [212]hat describes the need.  [212]o meet"
  56. 200 print"the need, you'll have to have a printer"
  57. 210 print"hooked up to your computer and run this"
  58. 215 print"program."
  59. 220 gosub630
  60. 230 print"   [211]everal patterns will be generated "
  61. 240 print"on your printer.  [212]he two large patterns"
  62. 250 print"[145]will be templates for cutting the     "
  63. 260 print"wooden sides.  [215]ith tape or rubber    "
  64. 270 print"cement, fasten the two patterns to any"
  65. 280 print"flat piece or wood 1/4-3/4 in. thick."
  66. 290 print:printspc(5)"( [196]o not use particle board! [146][154])"
  67. 300 print:print"[212]hicker wood is preferred because it "
  68. 310 print"gives the holder more weight.":print""
  69. 315 gosub630
  70. 320 print"   [195]ut out the two sides with a jigsaw,"
  71. 340 print"coping saw, or whatever else you have"
  72. 360 print"that'll do the job.  [212]ake your time..."
  73. 370 print"it will be worth it later on."
  74. 390 print:print"   [193]ssemble the box with screws, nails"
  75. 392 print"or glue.  [212]his disk box may be stained"
  76. 394 print"if you want a professional looking pro-"
  77. 396 print"ject.  [201]f you like, you may even cut"
  78. 398 print"the box from thick cardboard."
  79. 400 print:print"   [212]he utility of the project is impor-"
  80. 401 print"tant, not the looks, right?"
  81. 402 print:print"   [205]ake use of one of these disk boxes"
  82. 404 print"and you will never want to be without":print"it again."
  83. 410 gosub630:print"[147]"
  84. 420 print"         [196]o you want to:"
  85. 430 print"         [158][1][146][154] [210]un program"
  86. 440 print"         [2][146][154] [210]eview instructions"
  87. 450 print"         [156][3][146][154] [210]eturn to uptime"
  88. 455 print"         [4][146][154] [210]eturn to main menu"
  89. 460 getz$:ifz$=""or(val(z$)<1andval(z$)>4)then460
  90. 470 on(val(z$))goto500,2000,2010,7000
  91. 499 print"":goto420
  92. 500 rem***to printer
  93. 505 printchr$(14)+chr$(8)
  94. 510 print"[147]"
  95. 520 printspc(9)"[212]urn on your printer...":gosub630
  96. 530 print"[147]"
  97. 545 poke780,3:poke782,4:sys828
  98. 547 ifpeek(783)and1thenclose3:goto8000
  99. 550 rem  print"[215]hen ready hit...":gosub630
  100. 570 rem  print"[147]":print"[196]o you wish to abort operation":print"([217]/[206])"
  101. 580 rem  getz$:ifz$=""then580
  102. 590 rem  ifz$="y"then2000
  103. 595 y=0
  104. 600 cmd3
  105. 610 printspc(40);:print"...."
  106. 620 forx=1to3
  107. 629 goto635
  108. 630 goto5000
  109. 635 printspc(40);:print":  :":next
  110. 640 printspc(35);:print".... :  :"
  111. 650 forx=1to3
  112. 660 printspc(35);:print":  : :  :":next
  113. 670 printspc(30);:print".... :  : :  :"
  114. 680 forx=1to3
  115. 690 printspc(30);:print":  : :  : :  :":next
  116. 700 printspc(25);:print".... :  : :  : :  :"
  117. 710 forx=1to3
  118. 720 printspc(25);:print":  : :  : :  : :  :":next
  119. 730 printspc(20);:print".... :  : :  : :  : :  :"
  120. 740 forx=1to3
  121. 750 printspc(20);:print":  : :  : :  : :  : :  :":next
  122. 760 printspc(15);:print".... :  : :  : :  : :  : :  :"
  123. 770 forx=1to3
  124. 780 printspc(15);:print":  : :  : :  : :  : :  : :  :":next
  125. 790 printspc(10);:print".... :  : :  : :  : :  : :  : :  :"
  126. 800 printspc(10);:print":  : :  : :  : :  : :  : :  ...  :"
  127. 810 forx=1to2
  128. 820 printspc(10);:print":  : :  : :  : :  : :  : :       :":next
  129. 830 printspc(5);: print".... :  : :  : :  : :  : :  : :       :"
  130. 840 printspc(5);: print":  : :  : :  : :  : :  : :  ...       :"
  131. 850 forx=1to2
  132. 860 printspc(5);: print":  : :  : :  : :  : :  : :            :":next
  133. 900 print".... :  : :  : :  : :  : :  : :            :"
  134. 910 print":  : :  : :  : :  : :  : :  ...            :"
  135. 920 forx=1to2
  136. 930 print":  : :  : :  : :  : :  : :                 :":next
  137. 940 print":  : :  : :  : :  : :  : :                 :"
  138. 950 print":  : :  : :  : :  : :  ...                 :"
  139. 960 forx=1to2
  140. 970 print":  : :  : :  : :  : :                      :":next
  141. 980 print":  : :  : :  : :  : :            +         :"
  142. 990 print":  : :  : :  : :  ...        screwhole     :"
  143. 1000 forx=1to3
  144. 1010 print":  : :  : :  : :                           :":next
  145. 1020 print":  : :  : :  ...     ^  g                  :"
  146. 1030 print":  : :  : :          !  r                  :"
  147. 1040 print":  : :  : :          !  a                  :"
  148. 1050 print":  : :  : :          !  i                  :"
  149. 1060 print":  : :  ...          !  n                  :"
  150. 1070 forx=1to3
  151. 1080 print":  : :                                     :":next
  152. 1090 print":  ...                                     :"
  153. 1100 printc$
  154. 1110 print":                               +          :"
  155. 1120 print":                           screwhole      :"
  156. 1130 printc$
  157. 1140 print"............................................"
  158. 1150 print#3:close3,4
  159. 1200 ify=1then410
  160. 1210 print"[147]"
  161. 1220 open3,4:cmd3
  162. 1230 printb$:printa$:printa$
  163. 1240 print":   cut this piece out[160][160][160]:"
  164. 1250 print":     of 2 x 4  stock    :"
  165. 1260 print":       or similar       :"
  166. 1270 forx=1to7:printa$:next
  167. 1280 print":         side a         :"
  168. 1290 forx=1to5:printa$:next
  169. 1300 printa$:printa$:printb$
  170. 1310 y=y+1:goto600
  171. 2000 clr:goto100
  172. 2009 end
  173. 2010 sys(8*4096)+4
  174. 2011 end
  175. 5000 rem---hit any key
  176. 5005 print"":print""
  177. 5010 print"            [[198]8][146][154] for [213]p[212]ime"
  178. 5020 print"          [156][[210]eturn][146][154] to continue"
  179. 5030 getz$:ifz$=""then5030
  180. 5040 ifz$=chr$(140)then2010
  181. 5050 print"[147]":return
  182. 6000 data 169,216,162,072,160,064,133,250
  183. 6005 data 134,252,132,254,160,000,132,249
  184. 6010 data 132,251,132,253,177,249,145,253
  185. 6015 data 177,251,145,249,177,253,145,251
  186. 6017 data 200,208,241,230,250,230,252,230
  187. 6020 data 254,165,250,201,220,208,229,096
  188. 7000 poke53265,peek(53265)and239:print"[147]"
  189. 7001 printchr$(142)+chr$(8)
  190. 7002 a$=":                        :"
  191. 7003 b$=".........................."
  192. 7004 c$=":                                          :"
  193. 7010 print"[156]        [213][195][195][192][192][192][192][192][195][195][195][195][195][195][195][192][192][195][195][195][195][195][195][195][201]"
  194. 7020 forx=1to10:print"        [221]                       [221]":next
  195. 7030 print"        [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  196. 7040 print"[145][145][145][145][145][145][145][145][145][145]menu"
  197. 7050 print"(1[146]) see intro"
  198. 7052 print"(2[146]) run program"
  199. 7054 print"(3[146]) see assembly hints"
  200. 7056 print"(4[146]) return to uptime"
  201. 7058 print"      press 1-4 for your selection"
  202. 7059 poke53265,peek(53265)or16
  203. 7060 getx$:ifx$=""then7060
  204. 7062 ifval(x$)<1orval(x$)>4then7060
  205. 7064 x=1:on(val(x$))goto100,500,39,2010
  206. 8000 print"[147]":printspc(13)"[158]>----[197]rror----<"
  207. 8001 printspc(11)"[154][208]rinter not found."
  208. 8002 printspc(9)"[195]heck your connections."
  209. 8003 printspc(3)"[193]lso, make sure the printer is on."
  210. 8004 printspc(9)"[215]hen ready to resume...":gosub630
  211. 8006 ifx=100then595
  212. 8008 goto510
  213.